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FACILITY: RMS32 INDEX SEQUENTIAL FILE ORGANIZATION 

i ABSTRACT: 

; INSERT USER DATA RECORD 

; 

ENVIRONMENT : 

; VAX/VMS OPERATING SYSTEM 

leo 
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i AUTHOR: Wendy Koenig CREATION DATE: 14=JUL-78 


! MODIFIED BY: 


VO3-012 JWT0174 Jim Teague 4-Apr-1984 
Fix one more bey compression problem. When a record 
to be inserted in a bucket won't fit, RMS first scans 
the bucket looking for deleted records whose space it 
can reclaim. If a record is deleted, the position-of- 
insert of the new record is adjusted left the amount 
of the size of the deleted record. Note however that 
the record following the record ust deleted may have 
had it's key expanded as a result. That amount is also 
taken into consideration when it comes to figuring the 
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v04- 16-Sep-1984 01:47:1 VAX=-11 Bliss-32 V4.0-74 
1e=$ep-1984 13:01:55 DISKSVMEMASTERSERMS. SRCIRMSIUDR.B32;1°% (15 
: 3s 33 | | ponte ten Tn sine that thi 
; : n mind that this position-for-i ‘ 
; sf bey : ; M a oe for records before the posit tancters aeert, ; 
ae 62 11 ¢" eletion of a record results in position-for-insert . 
; 6 8o¢ 13 - ng equal to where the deleted record used to be, no : 
3; 664 064 1: ng mgr ty adjustment should be done. This was happening ° 
; 669 0065 1: j Fay of a new record's position-of-insert bein : 
3; & 0066 1 | ust after a deleted record, and as a result the position- : 
: «67 +444 1 i : ere became the middle of the record after the deleted ° 
; 68 0068 ecord. : 
° : v03-011 MCNOO016 Maria del C. N -Mar- ; 
: fe G07 : More Linkages reorganization ee ce-Rar-1985 ; 
= 0072 1} vO3-010 MCNOO15 : : 
H aria L . am a 
; 7 Booz 1} Reorganize Linkages writs ye sided : 
ee. 0075 1 | VO3-009 TMKO00S T : 
; 0076 1! hdd oun odd M. Katz 08-Jan-1983 : 
: port for Recovery Uni : 
: a4 9077 ; Recovery of ISAM nee = t Journalling and RU ROLLBACK 
mt oe O79 1 | This re : 
: : quires modification to the local routine RMSDEL_A ’ 
; Bt Sosy | meee riche tone ance ee Eriaery pete buctet attempting-to. ; 
: 8 0082 1: the in a $' ¢ = space so as to make room in the bucket for : 
; 8 0083 1: Phan hey of a new record. This routine now has the ability : 
; 84 0084 1: sedanedh abies Meamosen talen aan Geet vee Cervetes or : 
; 5 0085 ; s ecunstences. er a certain set of 
: global routine RMSINSERT_UDR must be modified . 
: 4 4454 i the primary data record must be repacked, the record sine ¢ - 
: 90 0090 13 a og two after repacking if the state bit , 
: 3 a03) prina?y dota record to "have tuo record ize fields and be" : 
: y 494 : special format when it is eventually we on 30 a9 : 
; & 009%4 1} The global routine RM$B : 
: LDUDR must also be modifi | : 
: +4 'a-e4 ’ neg gerne built as the result of SUPDATES are built in a . 
: 97 0097 1 eed re el | yen the IRB$SV_RU_UPDATE state bit is set. This 
; «98 0098 1! is art ro as two record size fields. The first size field : 
: 99 0099 1: : B.. 8 e grcore overhead and is the size of the amount of : 
: 100 0100 1: col ty reserves in case the Recovery Unit has to be : 
: 1 109 | a Fp Be RS 
; 108 0108 : of the record. ord and contains the actual size 
> 104 0104 1: VO3-008 TMK0004 Todd M. K ; 
; i - Katz 06-Jan-1983 e 
; 108 b10% ’ zines 2 pup a routine RMSDEL_AND_TRY. If this routine finds ‘ 
107 O09 1; a record that it can delete (the record is marked deleted and : 
; 108 0108 1! up cates are not allowed), then it reclaims the space it : 
> 109 0109 1 | occup ed by calling RMSDELETE_UDR. It then must adjust the 
: 110 110 13 os ress of the point of insertion of the new record provided ‘ 
: 411 W16413 : e od cess ot the reclaimed an preceeded the address of the . 
: 11 11 1 i ecor ° the bucket. What this adjustment was not taking into : 
amit Ng | Si tha toy Si°thy teliseiag socsegelene charge alfeceing tner 
: - : 
; (116 0114 1! the address of the point o insertion of the new record should ‘ 
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be. This fix insures that such a change in key size is taken 
into account when the address of the point of insertion of the 
new record is adjusted. 


v03-007 TMKO003 Todd M. Katz 14-Nov-1982 , 
Fixed a bug in the routine RMSDEL_AND_TRY. If this routine finds 
arecord that it can delete (the record is marked deleted and 
duplicates are not allowed), then it reclaims the space it 
occupied by calling RMSDELETE_UDR. It then must adjust the 
address of the point of insertion of the new record provided 
the address of the reclaimed record preceeded the address of the 
record in the bucket. This was being done by odjueting the 
point of insertion by the difference in the bucket freespace 
offset pointer before and after the deleted record's space was 
reclaimed taking into account whether a RRV was created to 
replace it or not. This method is incorrect because it does not 
take into account the poser t Te? that the key of the record 
following the deleted record might expand when primary key 
compression is enabled and the deleted record is removed. What 
is done now is to compute the amount of space occupied by the 
deleted record and just subtract that from the address of the 
point of insertion of the new record when necessary. 


< 


V03-006 KBT0167 Keith B. Thompson 23-Aug-1982 
Reorganize psects 
v03-005 TMK0002 Todd M. Kat 08-Aug-1982 | 


z 
Re-write the routine DEL_AND_TRY. The $DELETE operation has been 
completely re-written and the interfacing of this routine to 
the routines involved has drastically changed. 


VO3-004 TMKO001 Todd M. Katz 02-Jul-1982 ‘ 
Implement the RMS cluster solution for next record Gast erentne: 
As the next record positioning context is now kept locally 
within the IRAB, it is no loner necessary to reference the | 
NRP cell, a structure whose existance has been terminated, in 
order to both set and retrieve the RFA address of the user 
data record being inserted. Always reference the RFA of the new 
(updated) record by means of the subfields IRBSL_PUTUP_VBN 
and IRB$W_PUTUP_ID. 


v03-003 KBT0073 Keith B. Thompson 28-Jun-1982 
Modify del_and_try for the new NPR delete requirements 
vO3-002 MCNO014 Maria del C. Nasr 11-Jun-1982 


Eliminate overhead at end of data bucket that was to be 
used for duplicate continuation bucket processing. 


v03-001 TMK0001 Todd M. Katz 14-March-1982 
Change the use of RMSINSERT_UDR's lone parameter so that 
it is both an input and an output parameter. This is 
because in one special case the size of the record to be 
inserted may change, but the insertion does not take place 
under the control of this routine. If there is insufficient 
room in the bucket for the record, an attempt is made to 
squish out the keys of all deleted reccrds with keys currently 
in the bucket. If this is a prologue 5 file with compressed 
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primary keys, and the record to be inserted follows such a 
deleted record, this means the record must also be repacked as 
its size could have changed. If there is still insufficient 
room in the bucket for the new record, this new size value 
must be returned, since a bucket split is to occur, and the 
insertion of the new record will take place elsewhere. 


v02-016 DsD0001 Darrell Duffy 1-March-1982 
ine reference to record buffer to prevent protection 
ole. 


v02-015 PSK0001 Paulina S. Kniube 08-0c t-1981 
Fix 014. When scanning a bucket for deleted records to 
squish, this routine was getting confused after 
successfully _——— a record which also caused 
the following key to be expanded (because of front-end 
compression). 


vO2-014 MCNO013 Maria del C. Nasr 04-Aug-1981 
When we delete records, and expand keys the position of insert 
must be updated to reflect characters moved. | 


v02-013 MCNO012 Maria del C. Nasr 07-Jul-1981 
Fix problem in which if a record was to be added after a record 
that was deleted by DEL_AND_TRY, the key compression did not 
match anymore. Record must be packed again. 
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v02-012 MCNO010 Maria del C. Nasr 15-May-1981 
Make changes to be able to $PUT prologue 3 records. 
vO2-011 MCNOO06 Maria del C. Nasr 13-Mar-1981 
Increase size of record identifier to a word in NRP. 
05 V02-010 REFORMAT Paulina S. Knibbe 23-JUL-80 
Oe REVISION HISTORY: 
09 Wendy Koenig, 28-SEP-78 8:51 
19 X0002 = WHEN SQUISHING OUT DELETED RECORDS ALWAYS LEAVE A 2-BYTE RRV 
i Christian Saether, 4-OCT-78 9:45 
13 %0003 = m difications for UPDATE 
15 Wendy Koenig 12-OCT-78 15:56 
16 x0004 - IF ts AN EMPTY BUCKET, FORCE RECORD ALWAYS TO FIT, REGARDLESS Of 
+ LOA BIT 
19 Wendy Koenig, 24-OCT-78 14:02 
3 x0008 = MAKE CHANGES CAUSED BY SHARING CONVENTIONS 
$$ Christian Saether, 13-DEC-78 20:23 
$2 x0006 - DEL_AND_TRY forces DELETE_UDR to always remove record 
$2 Wendy ag 1, 22-JAN-79 17:01 
6 x0007 = IGNORE LOA BIT IF UPDATE 

8 2 Wendy Koenig, 25-JAN-79 11:25 


K 7 
eSepmt9pe 15:01:25 bt 


X-11 
SKSVM 


Bliss-32 V4.0-74 Page 5 
SMASTER: CRMS.SRCIJRM3IUDR.B32; 1 (1) | 


; 3 o 4 ! x0008 - GET RID OF SETTING VALID 

3 1 a. oe hristian Saether, I-Jan-80 21:55 : 

; é : 1! 0009 = check for id available moved to rm$put3b from rmSinsert_udr 

; 1! because it’s not relevant in update situation (fixes bug splitting 

3 ¢ : : } bucket on update when all id's are used) 

: 0 $ 1 !enene 

; 1 

3 ; 3 : LIBRARY ‘RMSLIB:RMS'; 
4 re 0 rs : REQUIRE ‘RMSSRC:RMSIDXDEF'; 
; eg 8 +) 1 ! Define default PSECTS for code 
: 24 oy 3s 
3 264 0308 1 PSECT | 
3 45 S34 1 CODE = RMSRMS3(PSECT_ATTR), 

$ “8 bai9 : PLIT = RMSRMS3S(PSECT_ATTR); 
; 248 B31¢ 1 ! Linkages 

; 49 031 1! 

; 250 0314 1 LINKAGE | 
3 23) 0315 1 L_JSB 

; $3¢ 0316 1 L~PRESERVE1 

; 25 0317 1 L-RABREG_567 
3 254 0318 1 L-RABREG~4567, | 
; $23 0319 1 L-RABREG 67, 
; 256 0320 1 L-REC_OVAD, 
: 257 0321 1 

; 258 b35§ 1 ' Local Linkages 
: 259 0323 1 ' 
; 260 0324 1 RLSDEL_AND_TRY = JSB() 
3 $2) B35e : : GLOBAL (COMMON_IOREG,COMMON_RABREG,R_REC_ADDR,R_IDX_DFN); 
: re: 0337 1 ! Forward Routines 
; 264 0328 1! 
; 265 0329 1 FORWARD ROUTINE 

> 266 0330 1 RMSINSERT_REC : RLSRABREG_4567, 
s 267 0331 1 RMSINSERT_UDR : RLSRABREG_4567; 
: 268 O336 1 
; 269 0333 1 ! External Routines 

: 270 0334 1! 

3 71 0335 1 EXTERNAL ROUTINE 

3 7 B99 1 MSDELETE_UDR : RLSRABREG_4567, 

: 7 33 1 RMSGETNEXT_REC : RLSRABREG 67, 

: 276 0338 1 RMSMOV : RL SPRE SERVE 

: 275 0339 1 RMSPACK_REC : RLSRABREG_567, 

3; 276 0340 1 RMSRECOMPR_KEY : RL$JSBO1, 

; a4 0341 1 RMSREC_OVH : RLSREC_OVHD 

: 278 0342 1 RMSRU_RECLAIM : RLSRABREG_67; 
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; 280 0343 1 XSBTTL ‘RMSBLDUDR' $ 
H 7 te } GLOBAL ROUTINE RMSBLDUDR (RECSZ) : RLSRABREG_4567 = : 
: es 46 1 !+¢ ; 
; 4 0347 1! : 
3 S? 8 rh : } FUNCTIONAL DESCRIPTION: : 
3 44 8 29 ; } insert the user's data record into the bucket w/ all its overhead : 
; 289 0 26 1 ! CALLING SEQUENCE: : 
; 290 0353 1! : 
; 4 0 ee : BSBW RMSBLDUDR() : 
; 29 56 1 | INPUT PARAMETERS: | : 
3 Be ST H4 : RECSZ = record size of record to be inserted including overhead ; 
: 96 0359 1 =! IMPLICIT INPUTS: : 
: 297 0360 1! REC_ADDR == pointer to place to insert record ; 
; 298 0361 1! BKT_ADDR == nxtrecid field F 
; 299 6306 1! IDX_DFN == index descriptor for data bucket type : 
: 300 0365 1! BDB -- vbn of bucket : 
: 301 0364 1! RAB -- rsz, rbf fields ‘ 
3 $08 0365 1! IFAB -- rfm field, : 
; 0366 1! IRAB =~ mode field, V_RU_UPDATE | : 
; 304 0367 1! 3 
; 0368 1 ! OUTPUT PARAMETERS: : 
; 306 0369 1 ! NONE | : 
; 307 0370 1! $ 
; 308 0371 1 ! IMPLICIT OUTPUTS: : ee, d 3 
; 309 Ba¢ 1! record is inserted into bucket, nxtrecid is incremented if new record | $ 
: 310 0373 1! REC_ADDR points to the first byte of the next record : 
: 311 0374 1! IRBSL_PUTUP_VBN, and IRB$W_PUTUP_ID are filled in with the RFA address : 
; z1§ 0375 1! of the record ; 
ee 0376 1! IRB$V_RU_UPDATE is always cleared. 3 
3 a8 0377 1! | 5 
; 315 0378 1 | ROUTINE VALUE: ; 
: 316 0379 1! RMSSUC 3 
; $14 0380 1! : 
3 18 0381 1 ! SIDE EFFECTS: bs 
s Vy Oazs 1! $ 
; 320 0383 1! Record is inserted into bucket. t Fas ; 
:; 321 0384 1! If the state bit IRB$V_RU_UPDATE is set, the record is built ina : 
; $56 0385 1! special format in that it will contain two record size fields. The : 
3 $5 B89 1! amount of space the record occupies will be found in the record 3 
: 324 0387 1! overhead's size field while the true size of the record will be : 
s 325 0388 1! found in the last two bytes of this reserved space. : 
: 326 0389 1! 3 
3 her 0390 1 !-- : 
; 328 0391 1 3 
; $3 3434 BEGIN 3 
Z 0 039 3 
; «331 0394 BUILTIN : 
3 3 395 TESTBITSC; 3 
s 33 339 : 
3 «(334 44 EXTERNAL REGISTER 3 
: 335 98 TR $ 
; 336 0399 R_REC_ADDR_STR, ; 
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: 7 400 R_IDX_DFN_STR, : 

3 3 ret R_IFAB_STR, 3 

; 9 4 § R_IRAB ‘ 3 

; 340 40 R-RAB_STR; ; 

; 341 404 : ; 

; 7 405 IF .IFABLCiFB$B_PLG_VER] LSSU PLGSC_VER_3 : 

: 344 040 BEGIN 3 

: 345 e's 3 

; 4 409 IF NOT .JRABCIRBSV_UPDATE) ; 

; 0410 THEN F 

3 48 Bets : 

; 349 tig ! this is a put operation so the VBN and ID fields for this record must : 

3 29 Betz } be filled in the record pointer fields to build the record | : 

3 26 0415 4 BEGIN : 

s 35 0416 4 3 

3 2¢ 8 F4 ? IF .BDB NEQ .JRABCIRBSL_CURBDB) : 

3 56 0419 4 ! the record is going into a new bucket so zero the ID to - 
: 357 Bese 4 ! signal this. the ID's will get reassigned further on anyway e 
: 358 0421 4 ! 3 

3; 359 04 ¢ 4 THEN Te 
Fy 60 04 4 IRABCIRB$W_LAST_ID] = 0 mt 
H 61 0424 4 ELSE , 
; $6 0425 4 ; 
3; 2 0426 4 ! the record goes into the original bucket so use the next ID :’ 
: 364 0427 4 ' 

; 365 0428 5 BEGIN 

3 66 oh 34 5 lanat lentebore 1D] = .BKT_ADDRCBKTS$B_NXTRECIDI; | 

; 367 0430 5 IRABCIRB$W-PUTUP_ ID) = .BKT_ADDRCBKTSB_NXTRECIDI; 

; 68 0431 5 BKT_ADDRCBRT$SB_NRTRECID] = [BKT_ADDRCBRTISB_NXTRECID] + 1; 
hae oa 

$ 71 0434 4 IRABCIRB$L_PUTUP_VBN) = .BDBCBDBSL_VBN); 

; 336 0435 ; END; 

3 ST 0436 | 

3 He oh 44 3 REC_ADDRCIRC$B_CONTROL] = 2; 

: 76 0439 ! fill in record ID and back pointer ID fields, being sure to use 

$ As nett the original ID if this is an update case 

3 79 044 REC_ADDRCIRC$B_I1D) = .IRABCIRBSW_LAST ID); 

; 380 044 REC-ADDRLIRC$B-RRV_ID) = .IRABCIRBSW_PUTUP_ID); 

; 3 Bete REC_ADDR = .REC_ADBR + 3; 

; Hy 0446 ; (.REC_ADDR) = .JRABCIRBS$L_PUTUP_VBNI; 

: se bees REC_ABDR = .REC_ADDR + 4; 

: 386 peer ! if not fixed length records, move size field in 

; 387 450 : 

; 388 0451 

; 389 $26 If .IFABCIFBSB_RFMORG) NEQ FABSC_FIX 

3 90 45 THEN 

: 91 454 4 BEGIN 

3 4 455 4 (.REC_ADDR)<0, 16> = .RABCRABSW_RSZ); 

; 39 0456 4 REC_ABDR = .REC_ADDR + IRC$C_DATSZFLO; ; R 
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; 394 457 END; 
3 59? 4 8 : | 
3 38 4 ! move user's data record in 
; 39 460 ; 
; 398 461 4 BEGIN 
; 399 0462 4 
; 400 465 4 GLOBAL REGISTER 
: 401 464 4 R_IMPURE ; | 
; 40 0465 4 
; 40 0466 4 REC_ADDR = RMSMOVE (.IRABCIRBSW_RSZ], .IRABCIRBSL_RBFJ, .REC_ADDR); 
: 404 046 END; 
; 405 468 END 
; 406 469 
; 407 0470 ELSE 
; 408 0471 BEGIN 
: 409 Berg 
; 410 047 IF NOT .IRABCIRBSV_UPDATE) 
; 411 0474 THEN | 
3 tig 0475 
3; 41 0476 ! this is a@ put operation so the VBN and ID fields for this record must 
; 4146 0477 ; ' be filled in the record pointer fields to build the record 
3; 415 0478 : 
: 416 0479 4 BEGIN 
; 417 0480 4 
3 $13 ott : IF .BDB NEQ .JRABCIRBSL_CURBDBI 
; 420 0483 4 ! the record is going into a new bucket so zero the ID to signal 
; 421 0484 4 ! this. the ID's will get reassigned further on anyway 
: osé 0485 4 : 
s 62 0486 4 THEN 
3; 426 0487 4 IRABCIRB$W_LAST_ID] = 0 
> 425 0488 4 ELSE 
: 426 0489 4 : . 
3; 427 0490 4 ! the record goes into the original bucket so use the next ID 
; 428 0491 4 : 
; $9? 0492 5 BEGIN 
; 4350 0493 5 IRABCIRBSW_LAST_ID] = .BKT_ADDRCBKTSW_NXTRECID); 
: 431 0494 5 IRABCIRBSW-PUTUP ID] = .BKT_ADDRCBKTS$Q NXTRECID); 
; $34 0495 5 BKT_ADDRCBRTS$W_NRTRECID] = TBKT_ADDRCBRTSW_NXTRECID) + 1; 
3 463 0496 4 END; 
3; 434 0497 4 
; 6435 0498 4 IRABCIRB$L_PUTUP_VBN) = .BDBCBDBSL_VBN); 
: 436 0499 3 END; 
3 rit 0500 , 
: 438 0501 ' Fill im the pointer size field 
3; 439 b208 ; 
3 rr 0304 REC_ADDRCIRC$B_CONTROL] = 2; 
3 o6g 505 ! If this record is to be in a special format then set the appropriate 
7 44 Bene ! record control bit. 
3 466 50 : 
3 «6445 508 IF .IRABCIRBSV_RU_UPDATE) 
: 44 509 THEN 
3 ri 319 REC_ADDRCIRC$V_RU_UPDATE) = 1; 
: 449 0312 ! fill in record ID and back pointer ID fields, being sure to use 
; 450 051 ! the original ID if this is an update case. Also, move VBN into 
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; 451 0514 ' record. ; 
: 458 0515 to 
; 45 18 REC_ADDRCIRC$W_ID] = , IRABCIRBSW_LAST_ID]; a 
; 454 051 REC-ADDREIRCSW-RRV_ID) = .IRABCIRBSW_PUTUP_ID]; | 
; 455 218 RECTADDR = .REC_ADDR + 5; Ss 
; 456 051 (,REC_ADDR) = .TRABCIRBSL_PUTUP_VBN); - 
; 457 0520 REC_ABDR = .REC_ADDR + 4; eB 
i 458 0521 RECSZ = .RECSZ = IRCSC_FIXOVHSZ3; . | 
; 460 05 : ! If not fixed length records, or fixed Length compressed records ; 
: ree 82 : move size field in a) 
; 1e8 0526 IF .IFABCIFB$B_RFMORG] NEQ FABSC_FIX i: ' 
> 464 0527 4 OR (.1FAB nese RFMORG) EQL FABSC_FIX 3 
; 465 0528 4 AND .IDX_DFNCTDX$B_DATBKTYP] NEQU IDX$C_NCMPNCMP) a 
; 466 0529 3 THEN ai 
; 467 0530 4 BEGIN : 
: 468 0531 4 RECSZ = .RECSZ = IRCSC_DATSZFLD; ; 
; 469 b29§ 4 (.REC_ADDR)<O, 16> = .RECSZ; . 

; 470 0938 4 REC_ADDR = .REC_ADDR + IRCSC_DATSZFLD; ie 
: 472 0535 4 ! If the record is to be in the special format, then reduce record =" 
3; 4673 0536 4 ! size by the two bytes that were added to it to allow for the 3 
> 474 0537 4 : second record size field, and move the true size of the record ; 

; 475 0538 4 ! into this second record size field (which occupies the last two 23 
: £78 134 . : bytes in the reserved space of the record). = 
: 478 0541 4 IF .IRABCIRB$V_RU_UPDATE] 3 | 
> 479 O54¢ 4 THEN eB 
; 480 0543 5 BEGIN 3 
> 481 0544 5 RECSZ = .RECSZ - IRCSC_DATSZFLD; ; 

> 482 0545 5 (.REC_ADDR + .RECSZ)<0716> = .RECSZ; a 
; 483 0546 4 : : 
3 484 0547 3 END; gs | 
; 485 0548 3 : 3 
; 486 0549 3 ' Move user's data record in. 1 
: 487 0550 3 ! , 
: 488 0551 4 BEGIN 4 
; 489 B23¢ 4 g 
; 490 0553 4 GLOBAL REGISTER 3 
; 491 0554 4 R_IMPURE; , | 
3; 492 0555 4 4 
3; 493 0556 4 REC_ADDR = RMSMOVE(.RECSZ, .IRABCIRBSL_RECBUFJ, .REC_ADDR); 5 ' 
: 494 FEA ; END; 5% 
: 495 558 ‘ : a 
3; 4% 0559 ; ! If the record is ‘n a special format, then increment REC_ADDR by the s | 
; 497 0560 ! size of the additional record size field so that it will point to the 3.) 
; $38 320) 3 end of the special data record. : 
; 200 058 IF TESTBITSC (IRABCIRBSV_RU_UPDATE]) : 
3 64 3 

: 206 0565 REC_ADDR = .REC_ADDR + IRCSC_DATSZFLD; : 
, 30 8266 ND; :] 
: 504 567 3 

s $05 0568 RETURN RMSSUC() 3 | 
; 506 026? P 3 

; 507 0570 1 END; ' { end of routine } e ' 
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AND_TRY 14-Sep-19 


ZSBITL_ ‘RMSDEL_AND_TRY’ 
ROUTINE RMSDEL_AND_TRY : RLSDEL_AND_TRY = 


44 
' 


i FUNCTIONAL DESCRIPTION: 


If duplicate primary keys are not allowed, this routine scans the 
current primary data bucket for hege( data records that are just 
marked deleted, and deletes any that it encounters. If records are 
encountered during the bucket scan which were modified within a . 
Recovery Unit, then they maybe subjected to special precese 1m provided 
the Recovery Unit in which they were modified has completed. Records 
that were deleted within a pens Unit may have their space reclaimed, 
and records that were updated may be reformated. 


; 


247: ; VAX-11 Bliss-32 V 


1:4 2 
3:01: ) 


If duplicate primary keys are allowed this routine can not reclaim the 
space occupued by records that are just marked deleted because of 
constraints imposed by the RMS cluster solution for next record 
positioning. However, if the file is RU Journallable, then the bucket 
scan is done anyway so that any records modified within recovery units 
can be processed appropriately. 


Whenever a deleted record is encountered, is is completviy removed, a 
two=byte deleted RRV without pointer is created for it at the end of the 
bucket if the file is not a projoeye 3 file and the record is in its 
original bucket, and the bucket's freespace is appropriately updated. 
Because this routine is oe called whenever there is insufficient room 
in the primary data bucket for the insertion of a new record, the 

point of insertion of the new record must also be updated whenever a 
deleted record is eliminated, and the position of the deleted record 

had preceeded the point of insertion of the new record in the bucket. 


If the file is Recovery Unit Journallable, then the RRV records at the 
end of the bucket will also be scanned looking for those records that 
were deleting within a completed Recovery Unit. If such records are 
found they are deleted for good at this time. 

CALLING SEQUENCE: 
RMSDEL_AND_TRY() 


INPUT PARAMETERS: 
NONE 


IMPLICIT INPUTS: 


BKT_ADDR - address of primary data bucket 
BKTS$W_FREESPACE - offset pointer to freespace in bucket 
ID - index descriptor for primary key of reference 


YS - if set, duplicate keys are allowe 
OMPR - if set, primary key compression is enabled 


IFAB - address of IFAB s 
IFB$B_PLG_VER - prologue version of file 


X_DFN 
1DX$V_DUPK 
IDX$SVIKEY_ 
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IFBSV_RU - if set, file is RU Journallable 
REC_ADDR - address of point of insertion of new record 
' OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
IRAB - address of IRAB 
IRB$W_POS_INS - offset to point of insertion of new record 
REC_ADDR - address of point of insertion of new record 


ROUTINE VALUE: 


0 if no records were deleted 
1 if some records were deleted 


! SIDE EFFECTS: 


o_O Cr CT 


EXTERNAL REGISTER 
COMMON_10_ST 


ACRO 
KEY EXPANSION . 


AP is trashed. 

If duplicate primary keys are not allowed, and deleted records were 
found in the bucket they were completely deleted, and the bucket 
freespace offset and position of insertion of the new record 
updated sporserreteiEs 

If this is a prologue 2 file then any deleted records encountered that 
were in their original bucket have a deleted RRV (without a RRV 
pointer) created for it at the end of the bucket to reserve the ID 
so it can not be recycled. P z 

Any records that had been deleted within Recovery Units might have been 
deleted for good and had their space reclaimed. — é 

Any hee tate Br had been updated within Recovery Units might have been 
reformated. 


BEGIN 
BUILTIN 


TESTBITSC; 


R . 
BFN_STR 


R IDX. 
“REC-ADDR_STR; 


R7REC 


LOCAL 


FLAGS : BLOCK (1), 
POS_INSERT; 


SPATE_RECLAIMED 
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685 ! If the file allows duplicate primary keys then the space occupied by 
6 $ ! deleted records can not be recover on-line due to constraints imposed 
6 ! by the RMS cluster solution to next record positioning. Avoid the ? 
688 1 overhead of the bucket scan, unless the file is RU Journallable in which 
0689 ! case perform the bucket scan so as to process those records which had 
Ree been deleted within recovery units. 
069 IF .1DX_DFNCIDX$V_DUPKEYS] 
0694 NOT .IFABCIFB$V_RUJ 
0695 
696 RETURN 0 
697 ELSE 
3098 FLAGS = 0; 
0700 : Prepare to scan the bucket for deleted records by saving the address of 
0701 2 ! the point of insertion of the new record and initializing REC_ADDR to the 
34 § } address of the very first record in the primary data bucket. 
0704 é POS_INSERT = .REC_ADDR; 
2444 § EC_ADDR = .BKT_ADDR + BKTSC_OVERHDSZ; 
0707 2 ! Scan the entire primary data bucket woreertt for primary data records 
0708 2 : that are just marked deleted. The search will terminate either when all 
0709 2 ! records in the bucket have been exhausted, or the first RRV in the bucket 
0710 2 ! is encountered (NOTE, if the file is Recovery Unit Journallable, then the 
0711 2 ' scan will terminate only when every record in the bucket has been looked 
org § } at including the RRVs). 
O74 4 WHILE ((.REC_ADDR LSSA (.BKT_ADDR + .BKT_ADDRCBKTS$W_FREESPACE])) 
0716 4 (NOT .REC_ADDRCIRCS$V_RRVJ 
0718 3 . IFABCIFB$V_RUJ)) 
0719 2 DO 
or59 3 BEGIN 
0722 3 : If the current record has been modified within a Recovery Unit then it 
0723 3 ! may require special processing ang He upon how the record was | 
0724 3 : modified and whether the Recovery Unit terminated successfully or is 
855¢ 3 still in progress. 
O72? IF .REC_ADDRCIRCSV_RU_UPDATE] 
0799 -REC_ADDRCIRC$V_RU_DELETE] 
0730 HE 
0731 4 BEGIN 
Or 86 4 
0733 4 LOCAL 
Ore ? OLD_FREESPACE : WORD; 
er 4 ! Save the current freespace offset pointer into the primary data 
O78 : bucket. 
0739 ‘ OLD_FREESPACE = .BKT_ADDR(BKTS$W_FREESPACE]; 
0741 4 ! If it was possible to reclaim any space at all from the RU 
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! modified record, then set the appropriate state bit and adjust - 
the position of insertion of the new record if necessary. 


iF RMSRU_RECLAIM() 
THEN 


rf BEGIN 

749 FLAGSCSPACE_RECLAIMED) = 1; 
ora ! If the position of insertion of the new record follows the 
BP 26 ! current record in the bucket, then adjust it by the number 
of ! of bytes that were freed by the reformatting of the 
4 ¢ current record. 
0756 iF .POS_INSERT GTRA .REC_ADDR 
075 THEN 
0758 POS_INSERT = .POS_INSERT = .OLD_FREESPACE 
0759 + .BKTIADDRIBKTS$W_FREESPACE]; | 
sre es 
076 ! If RMS is not able to reclaim any oy from this RU modified 
076 ! record because it is locked by another stream, then proceed 
tbe: onto the next record in the primary data bucket. | 
0766 


ELSE 
» RNSGETNEXT_RECQ; 


If the current record in the bucket has not been marked as modified 

within a Recovery Unit but has been marked deleted, then completely 

recover its space, creating a RRV in its place (but at the end of the 

bucket) if necessary, and updating the bucket's freespace and the 
position of insertion of the new record as required. This can only be 
done if duplicate primary keys are not allowed, and of course, if the 

deleted record is not itself a deleted RRV. 


LSE | 
IF .REC_ADDRCIRCSV_DELETED) 
AND 


NOT .REC_ADDRCIRCSV_RRV] 
NOT .1DX_DFNCIDXSV_DUPKEYS 
BEGIN 


OCAL 
NEXT_KEY SIZE, 
REC_OVHD, 
REC_SIZE; 


! Save the fact that a deleted record was encountered in this 
primary data bucket and its space completely reclaimed. 


FLAGSCSPACE_RECLAIMED) = 1; 


! If the deleted record whose space is to be reclaimed preceeds 
! the point of insertion of the new record, then this position 


WAI AINIAIAIRPUPIPINIPONPININID 2 2 OO OO a oe 


BARANYA SSONOUEUN SH OOBNOAR WOO 
yor at ot ot ot ot ot ar ot at ar or ral’ ele ee le Pe or eee eee ee ele eee ee 


Be Be Oe Be Se Be Be Ge Be Be Se Be Be Se Se Se Se Se Se Se Be Se ee Se HSE SH Se Be oe Se Be Oe Oe Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se SESH SH Se Se ae 


SNS 
3 R 
CNA MAL WN 9 OONOUEW  O COON US 


OOOOOO OO OWWOWMO Moc 


AND 
NOT .NEXT_REC_ADDRCIRCSV_RRV] 
ey’ POSAINSERT GTRU .REC_ADDR ! MUST still be true 


BEGIN 
FLAGSCKEY_EXPANSION) = 1; 
NEXT KEY_SIZE = .(.NEXT_REC_ADDR + .REC_OVHD)<0,8> 


END; 


Recover the space occupied by the deleted record replacing it 
with an RRV at the end of the bucket if necessary, adjusting 
the bucket freespace offset, and re-compressing the oe of 
the following record if primary key compression is enabled 
and there is a following record. 


8 
1h-s85-19 4 94:47: 3 VAX-11 Bliss-32 V4.0-74 Page 16 
RMSDEL_AND_TRY 14-Sep-1984 13:01: DISKSVMSMASTER: CRMS.SRCJRM3IUDR.B32; 1 (3) 
3; 37 799 4 ! of insertion address must be adjusted, and it adjusted by two : 
; i : 1 é : quantities. : 
; 740 § 4 ! 1. The number of bytes that are freed through the reclamation ; 
: oe ett ? of the space occupied by the current record. : 
: rg 805 4 : 2. If primary key compression is enabled and a record follows ; 
; 746 84 4 : the current record, the number of bytes the key of this 3 
3; 745 807 4 ' next record cpenges when its key is re-compressed as part . 
; a bane 2 of the removal of the current record. ; 
: res 10 4 IF _ .POS_INSERT GTRA .REC_ADDR 3 
; 74 11 4 THEN $ 
; 750 aig BEGIN F 
3 a) 081 ; 
3 at; 0814 LOCAL ; 
7 on 0815 5 NEXT_REC_ADDR : REF BBLOCK; F 
3; 754 0816 5 3 
3 39 0817 5 REC_OVHD = RMSREC_OVHD(O; REC_SIZE); 3 
; es pais : NEXT_REC_ADDR = .REC_ADOR + .REC_OVHD + .REC_SIZE; : 
; 758 0820 5 ! Adjust the position of insertion of the new record by the : 
; 759 0821 5 ! number of bytes which will be freed by the reclamation of 3 
: 760 bas 5 ! the current record. 3 
; 761 0823 5 ' | 3 
$ ne 0895 : POS_INSERT = .POS_INSERT - (.REC_OVHD + .REC_SIZE); ; 
; 764 0826 5 : If key compression is enabled, and there is a next record, : 
; 765 0827 5 ' save the size of the key of the next record before it is 3 
; 766 0828 5 : re-compressed as part of the deletion of the current 3 
3; 767 0829 5 ' record. This size will be used to adjust the position of 3 
; 768 0830 5 ! insertion of the new record after the current record is ; 
; 769 0831 5 ! deleted and the key of the current record is - ; 
3; 770 ttt 5 ! re-compressed. However, don't adjust if POS_INSERT is F 
3 v7) th 2 : equal to REC_ADDR after the deleted record cleanup. : 
3; 77 0835 5 IF .IDX_DFNCIOXS$V_KEY_COMPR] ; 
: 774 0836 5 AND 3 
: 775 0837 5 -NEXT_REC_ADDR LSSA $ 
; 776 0858 : (.BKT_ADDR + .BKT_ADDRCBKT$W_FREESPACE]) ; 
; 0840 5 : 
OBce 8 
3 0 : 5 : 
; 0844 6 3 
3 0 2 6 : 
; 0 7 § 3 
; 8 4 : 
3 8 9 4 3 
; 0 4 : 
; 0851 4 3 
: 0 § 4 3 
: 4 ; 
3 4 4 ‘ 
; 0855 4 : 


RMSIUDR 16-Sep-1984 01:47:1 VAX-11 Bliss-32 V4.0-74 Page 17 
y0e 000 RMSDEL_AND_TRY 127808 - 1 3b reer: TT EKSVMEHASTERS LANE SRCTRMSIUDR.B32:1 . (3) 
; 796 856 4 RMSDELETE_UDR(); 3 
; 795 Se 4 4 3 
ha. 28 4 ! If the address of the position of insertion of the new record 3 
; 79 4 ! follows the address of the current record, and it is possible ; 
; 798 60 4 ! that the size of the key of the following record might have : 
; 799 61 4 ! changed due to the re-compression of its alg ty key as part $ 
; 800 B06 4 ! of the reclamation of the space occupied the current 3 
; 801 865 4 ' record, then this possible change in key size must be used to ; 
: Ht Bare ? : adjust the position of insertion of the new record. : 
; HH 9: ? IF TESTBITSC (FLAGSCKEY_EXPANSION]) | : 
; Boe Sbek & POS_INSERT = .POS_INSERT + .(.REC_ADDR + .REC_OVHD)<0,8> | : 
; 80 0869 4 - .NEXT_REY_SIZE; ; 
; 808 0870 4 END | 3 
; 809 0871 4 . : 
; 810 Berg 4 ! If the current record is neither marked deleted nor marked 3 
; He th 2 Recovery Unit modified then position to the next record. : 
; £18 0875 ; ELSE 3 
; «814 0876 RMSGETNEXT_REC(); : 
; 815 0877 END; : 
; 816 0878 : 
; 817 0879 ' Readjust the offset to the point of insertion of the new record 3 
; 818 0880 § ! (regardless of whether this has or has not changed), restore into ; 
; 819 0881 ! REC_ADDR the address of the point of insertion of the new record, and : 
; 820 088 § ' return whether RMS encountered any deleted records and recovered the F 
3 HF ett : Space they occupied during its scan. : 
; Hs 0885 [RABCIRBSW_POS_INS] = .POS_INSERT - .BKT_ADDR; | ; 
; 824 0886 REC_ADDR =".POS_INSERT; : 
: HH 0887 RETORN .FLAGSCSPACE_RECLAIMED); ; 
; 826 0888 1 END; | 3 
; 
; 
OC BB 00000 RMSDEL_AND_TRY: 3 
PUSHR #*M<R2,R3> 3 0572. § 
5E 08 C2 0000 SUBL2 #8, SP 3 3 
09 1¢ 6A? «~2EY 0000 BLBC 28(IDX_DFN), 1$ : 0692 3 
03 OOAO CA 01 £0 00009 BBS #1, 160(IFAB), 1$ > 0694 | 
OOBE 31 9000F BRW 12$ ; 
04 AE D4 Onis 1$ CLRL FLAGS : 0698 | 
52 56 DO 0001 MOVL REC_ADDR, POS_INSERT + 0704 | 
56 OE AS 9E 00018 MOVAB 14(R5), REC_ADDR : 0705 
50 04 AS 3C QOOIC 2$ MOVZWL 4(BKT_ADDR), RO ; 0714 | 
6E 55 50 C1 00020 ADDL3 RO, BRT_ADDR, (SP) F 
AF 56 D1 00024 CMPL REC_ADDR, (SP) ; 
03 IF 828 7 BLSSU 4$ 3 
0094 31 00029 3$: BRW 11$ 3 
06 66 03 €1 0002C 4$: BBC #3, (REC_ADDR), 5$ ; 0716 
F OOAO CA 4 E1 00030 BBC #1, 160(TFAB), 3$ ; 0718. 
04 66 6 £0 00036 5$ BBS #6. (REC_ADDRS, 6$ > 0727 | 
23 $6 05 €1 QOO3A BBC #5, (REC-ADDR), 8$ 3; 0729 | 
04 A5 BO 0003E 6% MOVW 4(BKT_ADBR), OLD_FREESPACE : 0739. 


ee . ‘ a 


RMSIUDR 1 
v04-000 RMSDEL_AND_TRY 1 
00006 3 4 
Btn 
04 AE 9 8 00048 

56 D1 4C 

8 18 O4F 

: He 
50 2 ¢ 54 
P) 046 =A . 0058 

5 50 ¢ ORE 

11 QO05F 

56 66 E1 00061 
52 66 3 0065 
4E 1c OA 3 0069 
04 AE 0 8 B00 

56 ; D1 00071 

1B 00074 
51 Be Bante 

00006 30 0007 
53 29 dO Bore 

50 56 53 C1 QOO7E 
50 51 ¢O Benes 

51 53 C8 0008 
52 51 C2 00088 
16 1c =A? 06 €1 00088 
6E 50 01 00090 
11 1€ 00093 
OD 60 03 €0 00095 
56 52 D1 00099 

08 18 0009C 

04 AE 01 88 OO009E 

6E 6340 9A QOOA2 

00006 30 Q00A6 

B1 04 AE 00 53 Q00A9 
50 6346 9A QOOAE 

50 52 C0 4 t4 

52 50 6— C3 0008 
A4 11 00089 

00006 30 00088 

9F 11 tied 

48 Ad 52 55 A3 000C 
56 52 D0 000C5 
50 04 AE 01 01 EF Q00C8 
0s 11 QOOCE 
50 D4 it 

5E 08 CO itt 

Oc a 0000 
5 00007 


; Routine Size: 216 bytes, Routine Base: RMS$RMS3 + O00E7 


8 
-Sep-19 
~8ep-19 


Be 93:61:2 


VAX-11 Bliss-32 V4.0-74 


RMSRU_RECLAIM 
RO. 108 


#2, FLAGS 
POS_INSERT, REC_ADDR 


OLD_FREESPACE, RO 

RO,~POS INSERT, RO 

4(BKT_ABDR), POS_INSERT 
INSERT 


(REC_ADDR), 
(REC~ADDR) 
IDX DFN), 10$ 

I 


L 
NSERT, REC_ADDR 


10$ 
10$ 


RMSREC_OVHD 
RO, REC_OVHD 

REC_OVHB, REC_ADDR, RO 
REC_SIZE, NEXT_REC_ADDR 
REC-OVHD, R1 
R1,~POS_INSERT 

#6, 28(IDX_DFN), 9$ 
NEXT_REC_ADDR, (SP) 


#3, (NEXT_REC_ADDR), 9$ 
POS_INSERT, REC_ADDR 


#1, FLAGS 
(REC_OVHD) CNEXT_REC_ADDR], NEXT_KEY_SIZE 
RMSDELETE_UDR 


#0, FLAGS, 7$ 
(REC_OVHDSCREC_ADDRJ, RO 
POS_INS R 

NEXT_KEY_SIZE, RO, POS_INSERT 


RMSGETNEXT REC 
BKT_ADDR, POS_INSERT, 72(1RAB) 
POSTINSERT REC_AD 


1, #1, FLAGS, RO 
136 


#8, SP 
#*M<R2,R3> 


DISKSVMSMASTER:CRMS.SRCIRM3IUDR.B32; 1 
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ey 


0745 


749 | 
756 | 


0758 
0759 


1UDR 18-Se 1984 01:47:1 VAX=11 Bliss-32_V4.0=-74 P 19 
1800 RMSINSERT_REC 12805-1984 95:64:28 DT SKSVMSMASTERSCRMS. SRCIRMSIUDR.B32:1° °° (4) | 


3 8 0889 1 ZSBTTL ‘RMSINSERT_REC' 
3 3 Baas ! GLOBAL ROUTINE RMSINSERT_REC(RECSZ) : RLSRABREG_4567 = 

3 1 Bae 1 44 

; 8 ¢ 895 1! 

; Rae 1 ! FUNCTIONAL DESCRIPTION: 

3 ¢ Roe : routine to put the record into the bkt w/o any checks 

; 836 B07 1 ! CALLING SEQUENCE: 

; 837 pane [2 

; 838 0899 1! BSBW RMSINSERT_REC\) 

; : 9 900 1! 
; 840 901 1 ! INPUT PARAMETERS: 
; ah 34 : RECSZ = record size of record to be inserted including overhead 

H Be 0904 1 ! IMPLICIT INPUTS: 
> 844 0905 1! BKT_ADDR, BDB of CURBDB 
; 845 0906 1! IRAB -- * 

; 846 0907 1! REC_ADDR == pos of insert for record 
: 8467 0908 1! 

; 848 0909 1 ! OUTPUT PARAMETERS: | 
3; 849 0910 1! NONE 
; 850 0911 1! 
; «851 34} 1 ! IMPLICIT OUTPUTS: 

3 S26 0913 1! NONE 

; 5 0914 1! 

; 854 0915 1 ! ROUTINE VALUE: 

; 855 0916 1! success 

; 856 0917 1! 

; 857 0918 1 ! SIDE EFFECTS: 

; 858 0919 1! the bucket is expanded to make room for the record 
; 859 0920 1! freespace is updated 

; 860 0921 1! the bucket is marked valid and dirty 

; 861 O3s6 1! 

; 306 0923 1 !-- 

; 86 0924 1 

; 864 9925 2 BEGIN 

; 865 0926 2 

; 866 0927 2 EXTERNAL REGISTER 

; 867 0928 2 COMMON_1I0_STR 

; 868 09¢9 2 ON-RAB_STR, 

; 869 0930 $ R_IDX_BFN_STR 

: 870 0931 R7REC-ADDR_STR; 

; 872 $933 s ! The record will fit, get ready to move it in. 

3; 873 0934 ; ! 

3; 874 0935 BEGIN 

: 875 0936 ; 

; 876 0937 IF .BKT_ADDRCBKT$W_FREESPACE) NEQU .IRABLIRB$W_POS_INS) 

; 877 0938 3 THEN 

3; 878 939 4 BEGIN 

; 879 940 4 ; > 

; 880 941 4 ' Since the record to be put is not the last one in the bucket, if | 

: 881 baeg 4 ! keys are compressed, recompress the key of the next record, if it is 

; 882 9435 4 ' not and RRV. We are doing it for updates too, since when we deleted 

3 rt pee ? : the record to be udpated, we expanded the key. 
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; Routine Size: 


RMSINSERT_REC 


WOOODOOODOOOOO 
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RS 
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0964 


—— 
oe 


51 


7E 


75 bytes, 


IF .IDX_DFNCIDX$V xy COMPR) 
ne NOT .REC_ADBRCIRCSV_RRVI 


RMSRECOMPR_KEY(. IRABCIRBSL_RECBUFJ, .REC_ADDR + RMSREC_OVHD(0)); 


! Since there is a hi set, move it down in the bucket to make room 
for the record. 


RMSMOVE ( .BKT_ADDRCBKTSU_FREESPACE - . IRABLIRB$W_POS_INSJ, 
-RECTADDR + .RECSZ); 


BEGIN 


update freespace word 
BKT poeeteK TOY .F REESPACES = .BKT_ADDRCBKTSW_FREESPACE) + .RECSZ; 


BDBTBDBS$V_DRT 


move new record into bucket 
RETURN RMSBLDUDR(.RECSZ) 


END 
END; ! { end of routine rm$insert_rec } 
48 Ad 04 AS B81 00000 RMSINSERT REC:: 
CAPW = 4(BKT_ADDR), 72(IRAB) 
31 13 00005 BEQL 
1c A? 06 E1 00007 BBC #6, 28(1DX_DFN), 1$ 
66 9 EO 0000C BBS #3, (REC_ABDR), 1$ 
1 bs 00010 CLRL 
00006 30 90012 BSBW RMSREC_OVHD 
56 50 C1 9001 ADDL3 RO, REC_ADDR, R1 
50 68 A9 bo 00019 MOVL  104(IRAB), RO 
00006 30 0001D BSBW == RMSRECOMPR_KEY 
04 BE46 9F 00020 1$: PUSHAB @RECSZCREC_ADDR) 
36 D 00024 PUSHL REC _ADDR 
50 04 AS 3C 00026 MOVZ7WL 4(BRT_ADDR), RO 
51 48 Ad O2A MOVZWL 72(IRAB), R1 
50 51 c 00 UBL3. R1, RO, -(SP) 
00006 00 BSBW ss RMSMOVE 
5E oc C 09 ADDL2 #12, SP 
046 A 04 AE AO 00038 28: ADDW RECS? 4(BKT_ADDR) 
OA Ad 02 88 00030 BISB2 #2, 16(BDB) 
06 «AE bb 0041 PUSHL 
FDFA 0044 BSBW  RMSBLDUDR 
SE 04 C9 0047 ADDL2 #4, SP 
004A $B 


Routine Base: 


RMSRMS3 + O1BF 
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RM3IUDR Hn OL ards VAX=-11 
v04-000 RMSINSERT_UDR 4 13:01:2 Disk SK$V men 
>; 914 0974 1 2SBTTL ‘RMSINSERT_U 

; 915 B30? 1 GLOBAL ROUTINE ERS TUSERT -UDR(RECSZ) : RLSRABREG_4567 = 

; 916 976 «1 

; 917 0977 1 !+44 

; 918 0978 1! 

; 919 0979 1 | FUNCTIONAL DESCRIPTION: 

; 920 0980 1! 

s Fe 0981 1 Insert user data record in bucket, if possible 

; 9 ¢ 4 13 

5 5 0983 1 | CALLING SEQUENCE: 

; 924 0984 1 

$ 952 0985 «(1 i BSBW RMSINSERT_UDR() 
i: 926 0986 1! 

; 927 0987 1 i INPUT PARAMETERS: 

3 ase 9454 : RECSZ = record size of record to be inserted including overhead 
3 386 0990 1 ! IMPLICIT INPUTS: 

; 931 0991 1! RAB -- LOA 

; 932 0992 1! IDX_DFN == bAreKTSiz and DATFILL for bucket 

s 95 0993 1! REC_ADDR == pos of insert 

:; 934 0994 1! IFAB == RFM of file 

3 930 0995 1! IRAB == CURBDB 

; 936 0996 1! BDB and BKT_ADDR corresponding to cunsee 

3; 937 0997 1 from these we get the starting addr of bucket, 
: 0998 1 | freespace pointer, NATRECID® LSTRECID 
; 939 0999 1: 

; 9 1000 1 ! OUTPUT PARAMETERS: ' 

: of 1303 : RECSZ - record size of record to be inserted including overhead 
; 94 100 1 i IMPLICIT OUTPUTS: 

3 6944 1004 1! IR S_INS 

: 945 1005 1 i BKT “ADDR =-="NXTRECID and FREESPACE are updated 

: 946 1006 1: 

3: 947 1007 1 ! ROUTINE VALUE: 

; 948 1008 1: SUC if record is successfully placed in bucket 

; 949 1009 1! 0 if record does not fit 

; 950 1010 1! 

; 951 1011. 1 | SIDE EFFECTS: 

; 952 1012 1! if it fits, record is placed into bucket 

; 953 1013 1! and bucket is marked dirty and valid 

3 «954 1014 1! 

; 955 1015 1 i- 

: 956 1016 1 

; 957 1017 § BEGIN 

; 958 1018 

; 959 1019 § EXTERNAL REGISTER 

; 960 1020 COMMON. I0_STR, 

: 961 1021 2 R_IDX_BFN-STR 

: 962 108@ R-REC”ADDR 31h. 

s 9 196 COMMOR_ RAB_S 

3; 6964 1024 

3; 965 1025 LOCAL 

; 966 1026 REC_DEL 

; 967 1027 BKT~SIZE : WORD; 

; 968 1028 

3; 969 1029 

; 970 1030 RECSZ : REF VECTORC1,LONG); 
ioniitniinanapinaningabeninanhjiepiiimanee LEN OW ‘ i 
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STER: cs. sre RM3IUDR.B32; ? 
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RM3IUDR 1b-Sep=1984 01:47:13 VAX= $-32_ V4.0-74 3 
04-000 RMSINSERT_UDR 1ereee- 138s Shigrise Ht TERSERMS SRCIRMSIUDR.B32:1° °° ($3 


; 971 1031 

: are i IRABCIRB$W_POS_INS] = .REC_ADDR = .BKT_ADDR; 

; 974 1034 ! Set up bkt_size to be the fill size if loa set, else datbktsz * 512 

: 975 1035 ! if the bkt"is empty or all rrv's, use the whole bkt not the fill size 
$ 3r8 18 $ } if this is an update, use the whole bkt 

3 an 1936 BKT_SIZE = .IDX_DFNCIDX$B_DATBKTSZ3*512; 

; 980 1040 IF .RABCRABS$V_LOA) 

> 981 1041 

; © ek NOT .IRABCIRBSV_UPDATE) 

; 98 104 THEN 

> 984 1044 BEGIN 

; 985 1045 3 

; 986 1046 3 AL 

; 987 1047 POINTER : REF BBLOCK; 

; 988 1048 

3 34 6d POINTER = .BKT_ADDR + BKTSC_OVERHDSZ; 

; 991 1051 3 IF .BKT_ADDRCBKTSW_FREESPACE] NEQU BKTS$C_OVERHDSZ<0, 16> 

3 336 1928 3 AND 

; 99 1053 3 NOT .POINTERCIRCS$V_RRVI 
: 994 1054 3 

; 995 1055 3 BKT_SIZE = .IDX_DFNCIDX$W_DATFILLI; 

; 996 1056 § END; 

: 997 1057 

; 998 1058 2 IF .IFABCIFBSB_PLG_VER] LSSU PLGS$C_VER_3 

; .999 1059 2 THE 

; 1000 1060 2 BKT_SIZE = .BKT_SIZE - 1 ' checksum byte 

: 1001 1061 2 

: 1002 1006 2 BKT_SIZE = .BKT_SIZE - BKTSC_DATBKTOVH; 

: 1003 1063 2 

3 1004 1064 2 REC_DEL = 0; ! assume no record deleted 

; 1005 1065 2 

; 1006 1066 2 ! If freespace is already past usable space, or if rec size is 

3 bt + § greater than usable space, won't fit 

; 1009 1069 § if .BKT ~ADDR. C Pa th FREESPACE J GTRU .BKT_SIZE 

; 1010 1070 OR J) GTRU ( .BKT SIZE = -BKT_ ADDR C BKT$W_FREESPACE ] ) 

: 1011 1071 2 

; 1012 1076 2 : 7 
; a Oa 2 Try to reclaim some space out of the bucket. If we fail return zip! 
3 1015 1075 : iF NOT ( REC_DEL = RMSDEL_AND_TRY() ) 

3; 1016 1076 THEN 

; 1017 1077 NRETURN 0; 

; 1018 1078 

3; 1019 1079 2 ! If the key is compressed, and a record was deleted, it might Reve been 
: 1020 1080 ' the one before the record. So pack the record again to fix the key 

: 19s! Hat compression. Reset the Last non-compressed record in case it was yeleted. 
: 1033 1083 iF -REC_DEL AND .IDX_DFNCIDX$V_KEY_COMPR] 

: ose 1084 THEN 

3; 1025 1085 BEGIN 

3; 1026 1086 pee aes -hs T_NCMP] = .BKT_ADDR + BKTSC_OVERHDSZ; 

3; 1027 1087 RECSZ(0) ="RMSPACK “RECG; 


RM3IUDR ibese =1984 01:4 VAX-11 Bliss-32 V 4) RM? 
v04 02-000 RMSINSERT_UDR 14- sen-1984 3:0 1:38 DISKSVMSMASTER: cing? She RM3IUDR.B32;1 page (3 v04 
3 18 8 1908 ; RECSZ(O) = .RECSZ(O] + IRCSC_FIXOVHSZ3; : 
; 1050 1090 IF “wi tT hats penores an QU tei?” fu $ 
; 1031 1091 4 0 1FBS Mery EQL FABSC 3 
3; 10 ; 1036 4 AND .IDX_DFN IDXSB. ROATBKTYPS PNECU. TDx$c _NCMPNCMP) 3 
3 10 1093 3 EN : 
3; 1034 1094 4 BEGIN 3 
3 13 2 1392 ? RECSZ(O] = .RECSZ(C0] + IRCSC_DATSZFLD; | : 
3; 1037 1097 4 : If the state bit IRB$V_RU_UPDATE is set, then increase the record ; 
: 1038 1098 4 ' size by two to include the additional record size field which ; 
3; 1039 1099 4 ' must be included within the record. 5 
: 1040 1100 4 ! $ 
3 10461 1101 4 IF_ .IRABCIRB$V_RU_UPDATE] ; 
3 ok 1306 4 THEN F 
3 104 1103 4 RECSZ(0J] = .RECSZCO] + IRCSC_DATSZFLD; : 
3: 1044 1106 3 ; 3 
3 1045 1105 3 3 
3 1046 1106 2 END; 3 
3 1047 1107 2 | F 
3; 1048 1108 2 ! If the key compress ion changed, the record might have grown, : 
3; 1049 1109 2 i make sure it still fits. : 
; 1050 1110 2 : 
; 1051 1111 ¢ v. are ADDR(BKT$W_FREESPACE] GTRU .BKT_SIZE - 
; 1038 Wiig ; -RECSZ(0} GTRO ( .BKT_SIZE - .BKT_ADDREBKTS$W_FREESPACE) ) | ; 
3 1054 1114 2 NRETURN 0; : 
: 1055 1115 2 3 
; 1056 1116 2 ! it's now o.k. to move the record in, so go do it : 
3: 1057 1117 2 ! 3 
3; 1058 1118 2 RETURN RMSINSERT_REC(.RECSZ(0)); | é 
3: 1059 1119 2 $ 
; 1060 1120 1 END; : 
| : 
OC BB 00000 RMSINSERT_UDR:: 3 
POSHR one R2,R3> : 0975 3 
48 Ag 56 55 A3 00002 SUBW3 BKT ADDR, REC_ADDR, 72(IRAB) ; 1032 ; 
50 17 A? 9A 00007 MOVZBL gat {Dx X_DFN), RO : 1038 3 
52 50 0200 8F AS 00008 MULWS3 RO, BKT SIZE : 3 
17 05 AB 05 £1 90011 BBC #5, 5(RAB) 1s > 1040 : 
12 06 Ag 03 £0 00016 BBS #3, 6(1 RAB} . > 1042 | ; 
50 OE AS 9E 0001B MOVAB NatRs).P BTATER 3 1049 | 3 
OE 04 AS 61 OOO1F CMPW ACBKT ADDR). #14 ; 1051 é 
08 13 00023 BEQL 1$ : : 
04 60 03 €0 00025 BBS #3, (POINTER), 1$ + 1053 : 
6 26 «OA? 80 00029 MOVW 38(I1DX_DFN), BKT_SIZE >; 1055 | ; 
0 0087 CA 91 0002D 18: CMP 183(1FAB), #3 > 1058 ; 
04 is 4 2 BGEQU 2$ : 3 
2S B7 000 DEC GET SIZE 3 1060 | 3 
8 11 000 § BRB $ 3 $ 
52 2 A2 000 33: SUBW2 #2, BKT_SIZE > 1062 | : 
50 04 0003B 38: = CLRL_ «REC. DEL 3 1064 | : 
52 04 AS B61 000350 CMPW 4(BRT_ADDR), BKT_SIZE ; 1069 | : 


; Routine Size: 179 bytes, Routine Base: RM$RMS3 + 020A 


PSECT SUMMARY 
Name Bytes Attributes 
RMS$RMS3 701 NOVEC,NOWRT, RD, EXE,NOSHR, GBL, REL, CON, PIC,ALIGN(2) 
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RM3IUDR 1hese -1984 47:1 VAX-11 Bliss-32 V4.0-74 Page 25 
v04-000 RMS INSERT_UDR ease ea ibe $3:6):58 DES RSUMAASTERCCAMS secamsiuoR.032:1°%° (83 
10 1A 0044 BGTRU 4$ ; : 
51 52 3C 0004 MOVZWL BKT_SIZE, R1 + 107C : 
33 04 A g 0046 MOVZWL 4(BRT_ADOR), R3 : ; 
j 53 C2 O004A SUBL2 3, RT : ; 
51 0C BE 01 00040 CMPL  a@RECSZ, R1 : : 
1B 00051 BLEQU 5$ : : 
FE87? 30 00053 4s: SBW = RMSDEL_AND_TRY + 1075. : 
05 9 ; 0056 BLBS REC_DEL, 68 : | : 
53 11 005 BRB 9$ + 1077 ; 
2F 50 £9 00058 5$: BLBC REC_DEL 8$ > 1083) ; 
2A 1c A? 06 1 0005€ 6$: BBC #6, é ({DX_DFN), 8$ : | : 
0098 C9 OE A F 906 MOVAB 14(R5), 152(IRAB) + 1086. ; 
00006 006 BSBW RMSPACK_REC : 1087. : 
OC BE 50 DO 0006C MOVL. RO, @RECSZ : | ; 
OC BE 09 CO 00070 ADDL2 #9. aRECSZ > 1088. : 
01 50 AA 91 00074 CMPB. =s- BOL IFAB), #1 : 1090. : 
06 12 00078 BNEQ : | : 
06 29 A? 91 OOO7A CMPB = 41 (IDX_DFN), #6 : 1092 | ; 
OD 13 O007E BEQL : | : 
OC BE 02 cd 90080 7$ ADDL2 #2, @RECSZ + 1095. : 
07 Aad 95 00084 TST 7({RAB) + 1101. : 
04 18 00087 BGEQ = S$ : : 
OC BE 02 CO 00089 ADDL2 #2, @RECSZ + 1103. : 
52 04 AS Bi 0008D 8$: CMPW 4(BKT_ADDR), BKT_SIZE : 1111) : 
1B 1A 00091 BGTRU 9$ : ; 
50 52 3C 00093 MOVZWL BKT_SIZE, RO : 1112) ; 
51 04 AS 3C 00096 MOVZWL 4(BRT_ADDR), R1 : 3 
50 51 C2 0009A SUBL2 R1, RO 3 : 
50 0c BE D1 0009D CMPL @RECSZ, RO : ; 
0B 1A OOOA1 BGTRU 9$ : : 
OC BE bp 0003 PUSHL  a@RECSZ : 1118 : 
FFOC 3 sie BSBW RMS INSERT_REC é é 
5E 04 C0 OA9 ADDL2 #4, SP 3 3 
02 11 OOOAC BRB 10$ : ; 
50 D4 OOOAE 9$: CLRL — RO > 1120 ; 
0C BA 000B0 10$:  POPR #*M<R2,R3> : : 
05 000B2 RSB : : 


if 
RMSIUDR p-3¢ -1 VAX-11 Bliss-32 V4.0- 
voe-000 RMSINSERT_UDR } £288 b=138c 3:87 38 DISKSVMSMASTE TER: eCRMS SRCIRMSIUDR. B32; ? eS 


Library Statistics 


euewes “= Symbols ococoee= Pages Processin 
File Total Loaded Percent Mapped Time ’ 
-$255$DUA28: CRMS .OBJJRMS.L32;1 3109 71 2 154 00:00.4 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=L1S$:RM31UDR/OBJ=OBJ$:RM3IUDR MSRC$:RM3IUDR/UPDATE=(ENH$:RM3IUDR) | 


: Etaes 701 code + 0 data bytes 
Run Time: 00:19.8 

Elapsed Time: 00:41.8 

Lines/CPU Min: 3412 
Lexemes/(PU-Min: 17234 

poneey Used: 143 pages 

Compilation Complete 
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